home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ss-Sz / Summarizer.cpt / Summarizer 1.3 / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1987-12-25  |  4.0 KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.3</name>
  5.     <id>-1</id>
  6.     <cardCount>12</cardCount>
  7.     <cardID>3853</cardID>
  8.     <listID>4555</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openstackset userlevel to 5hide menubarget short name of stackput it into card field "stkname"wait 2 secondsgo to card "ChptLstCrd"end openstackon domenuglobal ptypeput the param of 1 into ptypeif ptype contains "paste" thenif ptype is "paste card" thenget the short name of the targetif it is "Add topics" or it is "Contents" or it is "Insert" thenpass domenuelse  -- pasting but not cardbeep 1put "Make menus first, THEN copy text/graphics, not vice versa!"answer "You are trying to paste a card!..." with "OK"answer "Only Summarizer may paste cards!" with "OK"put empty into msghide msgexit domenuend ifend ifanswer "About to" && ptype && "from clipboard" with "Cancel" or "OK"if it is "Cancel" then exit domenuend ifif ptype contains "cut" or ptype contains "copy" thenif ptype is "cut picture" or ptype is "copy picture" thenput "Make menus first, THEN copy text/graphics, not vice versa!"answer "Have you made menus for this graphic yet?" ¬¨with "No" or "Yes"if it is "No" thenhide msgexit domenuend ifend ifif ptype is "cut " thenbeep 1answer "There must be graphics to cut!" with "OK"exit domenuend ifend ifhide msgpass domenuend domenuon MakePageput empty into NwCrdput field "HeaderFld" into StrtCrdHeaderput short name of next card into RCardput short name of this card into StrtCrdset lockscreen to "true"if RCard is "@" thendomenu "new card"set name of this card to "@"if StrtCrd is "@" thenput StrtCrdHeader into field "HeaderFld"elseput "‚Ķ" && StrtCrdHeader && "Cont." into field "HeaderFld"end ifput "true" into NwCrdelseput "false" into NwCrdend ifdomenu "new button"set name of button "new button" to "NxtPg"set showname of button "NxtPg" to falseset rect of button "NxtPg" to 460, 0, 480, 17set icon of button "NxtPg" to "sml Next Arrow"set loc of button "NxtPg" to 460,8set style of button "NxtPg" to opaqueset script of button "NxtPg" to "On mouseup" & return & ¬¨"go to next card" & return & ¬¨"if the number of card fields is 1 then" & return & ¬¨"get rect of card field" && quote & "txtfld" & quote & return & ¬¨"delete item 4 of it" & return & "delete item 3 of it" & return & ¬¨"click at it" & return & ¬¨"end if" & return & "end mouseup"if not NwCrd thendomenu "new card"set name of this card to "@"if StrtCrd is "@" thenput StrtCrdHeader into field "HeaderFld"elseput "‚Ķ" && StrtCrdHeader && "Cont." into field "HeaderFld"end ifend ifdomenu "new button"set name of button "new button" to "PrvPg"set showname of button "PrvPg" to falseset rect of button "PrvPg" to 481, 0, 501, 17set icon of button "PrvPg" to "sml Prev Arrow"set loc of button "PrvPg" to 481,8set style of button "PrvPg" to opaqueset script of button "PrvPg" to "On mouseup" & return & ¬¨"go to prev card" & return & ¬¨"if the number of card fields is 1 then" & return & ¬¨"get rect of card field" && quote & "txtfld" & quote & return & ¬¨"delete item 4 of it" & return & "delete item 3 of it" & return & ¬¨"click at it" & return & ¬¨"end if" & return &"end mouseup"choose browse toolend MakePageon MakeFieldglobal WindTypedomenu "New field"set name of card field "" to "TxtFld"set rect of card field "TxtFld" to 19,18,512,342if WindType is "Scroll"then set Style of card field "TxtFld" to Scrollingif WindType is "Reg Text"then set Style of card field "Txtfld" to transparentset textFont of card field "TxtFld" to genevaset TextSize of card field "Txtfld" to 9set